﻿Public Class CoeffObject
    Public Property type As String
    Public Property coeff As Double
    Public Property thr1 As Double
    Public Property coeff2 As Double
    Public Property thr2 As Double
    Public Property coeff3 As Double
    Public Sub New(t As String, c1 As Double, c2 As Double, c3 As Double, t1 As Double, t2 As Double)
        type = t
        coeff = c1
        coeff2 = c2
        coeff3 = c3
        thr1 = t1
        thr2 = t2
    End Sub
    Public Sub New()
        type = ""
        coeff = 9
        coeff2 = 1.09
        coeff3 = 1.09
        thr1 = 100
        thr2 = 200
    End Sub
    Public Sub New(t As String)
        Me.New()
        type = t
        
    End Sub
End Class
